home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gsdparam.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-09  |  18.2 KB  |  596 lines
  1. /* Copyright (C) 1993, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gsdparam.c */
  20. /* Default device parameters for Ghostscript library */
  21. #include "memory_.h"            /* for memcpy */
  22. #include "string_.h"            /* for strlen */
  23. #include "gx.h"
  24. #include "gserrors.h"
  25. #include "gsparam.h"
  26. #include "gxdevice.h"
  27. #include "gxfixed.h"
  28.  
  29. /* Define whether we accept PageSize as a synonym for MediaSize. */
  30. /* This is for backward compatibility only. */
  31. #define PAGESIZE_IS_MEDIASIZE
  32.  
  33. /* ================ Getting parameters ================ */
  34.  
  35. /* Forward references */
  36. private bool param_HWColorMap(P2(gx_device *, byte *));
  37.  
  38. /* Get the device parameters. */
  39. int
  40. gs_getdeviceparams(gx_device *dev, gs_param_list *plist)
  41. {    gx_device_set_procs(dev);
  42.     fill_dev_proc(dev, get_params, gx_default_get_params);
  43.     fill_dev_proc(dev, get_page_device, gx_default_get_page_device);
  44.     fill_dev_proc(dev, get_alpha_bits, gx_default_get_alpha_bits);
  45.     return (*dev_proc(dev, get_params))(dev, plist);
  46. }
  47.  
  48. /* Standard ProcessColorModel values. */
  49. static const char *pcmsa[] = {
  50.   "", "DeviceGray", "", "DeviceRGB", "DeviceCMYK"
  51. };
  52.  
  53. /* Get standard parameters. */
  54. int
  55. gx_default_get_params(gx_device *dev, gs_param_list *plist)
  56. {
  57.     int code;
  58.  
  59.     /* Standard page device parameters: */
  60.  
  61.     gs_param_string dns, pcms;
  62.     gs_param_float_array msa, ibba, hwra, ma;
  63. #define set_param_array(a, d, s)\
  64.   (a.data = d, a.size = s, a.persistent = false);
  65.  
  66.     /* Non-standard parameters: */
  67.  
  68.     int colors = dev->color_info.num_components;
  69.     int depth = dev->color_info.depth;
  70.     int GrayValues = dev->color_info.max_gray + 1;
  71.     int HWSize[2];
  72.       gs_param_int_array hwsa;
  73.     gs_param_float_array hwma, mhwra;
  74.  
  75.     /* Fill in page device parameters. */
  76.  
  77.     param_string_from_string(dns, dev->dname);
  78.     {    const char *cms = pcmsa[colors];
  79.         /* We might have an uninitialized device with */
  80.         /* color_info.num_components = 0.... */
  81.         if ( *cms != 0 )
  82.           param_string_from_string(pcms, cms);
  83.         else
  84.           pcms.data = 0;
  85.     }
  86.     set_param_array(hwra, dev->HWResolution, 2);
  87.     set_param_array(msa, dev->MediaSize, 2);
  88.     set_param_array(ibba, dev->ImagingBBox, 4);
  89.     set_param_array(ma, dev->Margins, 2);
  90.  
  91.     /* Fill in non-standard parameters. */
  92.  
  93.     HWSize[0] = dev->width;
  94.     HWSize[1] = dev->height;
  95.     set_param_array(hwsa, HWSize, 2);
  96.     set_param_array(hwma, dev->HWMargins, 4);
  97.     set_param_array(mhwra, dev->MarginsHWResolution, 2);
  98.  
  99.     /* Transmit the values. */
  100.  
  101.     if (
  102.             /* Standard parameters */
  103.  
  104.          (code = param_write_name(plist, "OutputDevice", &dns)) < 0 ||
  105. #ifdef PAGESIZE_IS_MEDIASIZE
  106.          (code = param_write_float_array(plist, "PageSize", &msa)) < 0 ||
  107. #endif
  108.          (code = (pcms.data == 0 ? 0 :
  109.               param_write_name(plist, "ProcessColorModel", &pcms))) < 0 ||
  110.          (code = param_write_float_array(plist, "HWResolution", &hwra)) < 0 ||
  111.          (code = (dev->ImagingBBox_set ?
  112.               param_write_float_array(plist, "ImagingBBox", &ibba) :
  113.               param_write_null(plist, "ImagingBBox"))) < 0 ||
  114.          (code = param_write_float_array(plist, "Margins", &ma)) < 0 ||
  115.  
  116.             /* Non-standard parameters */
  117.  
  118.          (code = param_write_int_array(plist, "HWSize", &hwsa)) < 0 ||
  119.          (code = param_write_float_array(plist, ".HWMargins", &hwma)) < 0 ||
  120.          (code = param_write_float_array(plist, ".MarginsHWResolution", &mhwra)) < 0 ||
  121.          (code = param_write_float_array(plist, ".MediaSize", &msa)) < 0 ||
  122.          (code = param_write_string(plist, "Name", &dns)) < 0 ||
  123.          (code = param_write_int(plist, "Colors", &colors)) < 0 ||
  124.          (code = param_write_int(plist, "BitsPerPixel", &depth)) < 0 ||
  125.          (code = param_write_int(plist, "GrayValues", &GrayValues)) < 0 ||
  126.          (code = param_write_long(plist, "PageCount", &dev->PageCount)) < 0 ||
  127.          (code = param_write_bool(plist, ".IgnoreNumCopies", &dev->IgnoreNumCopies)) < 0
  128.        )
  129.         return code;
  130.  
  131.     /* Fill in color information. */
  132.  
  133.     if ( colors > 1 )
  134.     {    int RGBValues = dev->color_info.max_color + 1;
  135.         long ColorValues = 1L << depth;
  136.         if ( (code = param_write_int(plist, "RedValues", &RGBValues)) < 0 ||
  137.              (code = param_write_int(plist, "GreenValues", &RGBValues)) < 0 ||
  138.              (code = param_write_int(plist, "BlueValues", &RGBValues)) < 0 ||
  139.              (code = param_write_long(plist, "ColorValues", &ColorValues)) < 0
  140.            )
  141.             return code;
  142.     }
  143.  
  144.     if ( param_requested(plist, "HWColorMap") )
  145.     {    byte palette[3 << 8];
  146.         if ( param_HWColorMap(dev, palette) )
  147.           {    gs_param_string hwcms;
  148.             hwcms.data = palette, hwcms.size = colors << depth,
  149.               hwcms.persistent = false;
  150.             if ( (code = param_write_string(plist, "HWColorMap", &hwcms)) < 0 )
  151.               return code;
  152.           }
  153.     }
  154.  
  155.     { int tab = (*dev_proc(dev, get_alpha_bits))(dev, go_text);
  156.       int gab = (*dev_proc(dev, get_alpha_bits))(dev, go_graphics);
  157.  
  158.       if ( (code = param_write_int(plist, "TextAlphaBits", &tab)) < 0 ||
  159.            (code = param_write_int(plist, "GraphicsAlphaBits", &gab)) < 0
  160.          )
  161.         return code;
  162.     }
  163.  
  164.     return 0;
  165. }
  166.  
  167. /* Get the color map for a device.  Return true if there is one. */
  168. private bool
  169. param_HWColorMap(gx_device *dev, byte *palette /* 3 << 8 */)
  170. {    int depth = dev->color_info.depth;
  171.     int colors = dev->color_info.num_components;
  172.     
  173.     if ( depth <= 8 && colors <= 3 )
  174.       {    byte *p = palette;
  175.         gx_color_value rgb[3];
  176.         gx_color_index i;
  177.         fill_dev_proc(dev, map_color_rgb, gx_default_map_color_rgb);
  178.         for ( i = 0; (i >> depth) == 0; i++ )
  179.           {    int j;
  180.             if ( (*dev_proc(dev, map_color_rgb))(dev, i, rgb) < 0 )
  181.               return false;
  182.             for ( j = 0; j < colors; j++ )
  183.               *p++ = gx_color_value_to_byte(rgb[j]);
  184.           }
  185.         return true;
  186.       }
  187.     return false;
  188. }
  189.  
  190. /* ================ Putting parameters ================ */
  191.  
  192. /* Forward references */
  193. private int param_MediaSize(P4(gs_param_list *, gs_param_name,
  194.                    const float *, gs_param_float_array *));
  195. #if 0        /****** not used ******/
  196. private int param_check_bool(P4(gs_param_list *, gs_param_name, bool, bool));
  197. #endif        /****** not used ******/
  198. private int param_check_long(P4(gs_param_list *, gs_param_name, long, bool));
  199. #define param_check_int(plist, pname, ival, defined)\
  200.   param_check_long(plist, pname, (long)(ival), defined)
  201. private int param_check_bytes(P5(gs_param_list *, gs_param_name, const byte *, uint, bool));
  202. #define param_check_string(plist, pname, str, defined)\
  203.   param_check_bytes(plist, pname, (const byte *)str, strlen(str), defined)
  204.  
  205. /* Set the device parameters. */
  206. /* If the device was open and the put_params procedure closed it, */
  207. /* return 1; otherwise, return 0 or an error code as usual. */
  208. int
  209. gs_putdeviceparams(gx_device *dev, gs_param_list *plist)
  210. {    bool was_open = dev->is_open;
  211.     int code;
  212.  
  213.     gx_device_set_procs(dev);
  214.     fill_dev_proc(dev, put_params, gx_default_put_params);
  215.     fill_dev_proc(dev, get_alpha_bits, gx_default_get_alpha_bits);
  216.     code = (*dev_proc(dev, put_params))(dev, plist);
  217.     return (code < 0 ? code : was_open && !dev->is_open ? 1 : code);
  218. }
  219.  
  220. /* Set standard parameters. */
  221. /* Note that setting the size or resolution closes the device. */
  222. /* Window devices that don't want this to happen must temporarily */
  223. /* set is_open to false before calling gx_default_put_params, */
  224. /* and then taking appropriate action afterwards. */
  225. int
  226. gx_default_put_params(gx_device *dev, gs_param_list *plist)
  227. {    int ecode = 0;
  228.     int code;
  229.     gs_param_name param_name;
  230.     gs_param_float_array hwra;
  231.     gs_param_int_array hwsa;
  232.     gs_param_float_array msa;
  233.     gs_param_float_array ma;
  234.     gs_param_float_array hwma;
  235.     gs_param_float_array mhwra;
  236.  
  237.     bool ignc = dev->IgnoreNumCopies;
  238.     gs_param_float_array ibba;
  239.     bool ibbnull = false;
  240.     int colors = dev->color_info.num_components;
  241.     int depth = dev->color_info.depth;
  242.     int GrayValues = dev->color_info.max_gray + 1;
  243.     int RGBValues = dev->color_info.max_color + 1;
  244.     long ColorValues = 1L << depth;
  245.     gs_param_string cms;
  246.  
  247. #define BEGIN_ARRAY_PARAM(pread, pname, pa, psize, e)\
  248.   switch ( code = pread(plist, (param_name = pname), &(pa)) )\
  249.   {\
  250.   case 0:\
  251.     if ( (pa).size != psize )\
  252.       ecode = gs_note_error(gs_error_rangecheck);\
  253.     else { 
  254. /* The body of the processing code goes here. */
  255. /* If it succeeds, it should do a 'break'; */
  256. /* if it fails, it should set ecode and fall through. */
  257. #define END_ARRAY_PARAM(pa, e)\
  258.     }\
  259.     goto e;\
  260.   default:\
  261.     ecode = code;\
  262. e:    param_signal_error(plist, param_name, ecode);\
  263.   case 1:\
  264.     (pa).data = 0;        /* mark as not filled */\
  265.   }
  266.  
  267.     /*
  268.      * The HWResolution, HWSize, and MediaSize parameters interact in
  269.      * the following way:
  270.      *    1. Setting HWResolution recomputes HWSize from MediaSize.
  271.      *    2. Setting HWSize recomputes MediaSize from HWResolution.
  272.      *    3. Setting MediaSize recomputes HWSize from HWResolution.
  273.      * If more than one parameter is being set, we apply these rules
  274.      * in the order 1, 2, 3.  This does the right thing in the most
  275.      * common case of setting more than one parameter, namely,
  276.      * setting both HWResolution and HWSize.
  277.      */
  278.  
  279.     BEGIN_ARRAY_PARAM(param_read_float_array, "HWResolution", hwra, 2, hwre)
  280.         if ( hwra.data[0] <= 0 || hwra.data[1] <= 0 )
  281.           ecode = gs_note_error(gs_error_rangecheck);
  282.         else
  283.           break;
  284.     END_ARRAY_PARAM(hwra, hwre)
  285.  
  286.     BEGIN_ARRAY_PARAM(param_read_int_array, "HWSize", hwsa, 2, hwsa)
  287.         /* We need a special check to handle the nullpage device, */
  288.         /* whose size is legitimately [0 0]. */
  289.         if ( (hwsa.data[0] <= 0 && hwsa.data[0] != dev->width) ||
  290.              (hwsa.data[1] <= 0 && hwsa.data[1] != dev->height)
  291.            )
  292.           ecode = gs_note_error(gs_error_rangecheck);
  293. #define max_coord (max_fixed / fixed_1)
  294. #if max_coord < max_int
  295.         else if ( hwsa.data[0] > max_coord || hwsa.data[1] > max_coord )
  296.           ecode = gs_note_error(gs_error_limitcheck);
  297. #endif
  298. #undef max_coord
  299.         else
  300.           break;
  301.     END_ARRAY_PARAM(hwsa, hwse)
  302.  
  303.     { const float *res = (hwra.data == 0 ? dev->HWResolution : hwra.data);
  304. #ifdef PAGESIZE_IS_MEDIASIZE
  305.       const float *data;
  306.  
  307.       /* .MediaSize takes precedence over PageSize, so */
  308.       /* we read PageSize first. */
  309.       code = param_MediaSize(plist, "PageSize", res, &msa);
  310.       if ( code < 0 )
  311.         ecode = code;
  312.       /* Prevent data from being set to 0 if PageSize is specified */
  313.       /* but .MediaSize is not. */
  314.       data = msa.data;
  315.       code = param_MediaSize(plist, ".MediaSize", res, &msa);
  316.       if ( code < 0 )
  317.         ecode = code;
  318.       else if ( msa.data == 0 )
  319.         msa.data = data;
  320. #else
  321.       code = param_MediaSize(plist, ".MediaSize", res, &msa);
  322.       if ( code < 0 )
  323.         ecode = code;
  324. #endif
  325.     }
  326.  
  327.     BEGIN_ARRAY_PARAM(param_read_float_array, "Margins", ma, 2, me)
  328.         break;
  329.     END_ARRAY_PARAM(ma, me)
  330.  
  331.     BEGIN_ARRAY_PARAM(param_read_float_array, ".HWMargins", hwma, 4, hwme)
  332.         break;
  333.     END_ARRAY_PARAM(hwma, hwme)
  334.  
  335.     /* MarginsHWResolution cannot be changed, only checked. */
  336.     BEGIN_ARRAY_PARAM(param_read_float_array, ".MarginsHWResolution", mhwra, 2, mhwre)
  337.         if ( mhwra.data[0] != dev->MarginsHWResolution[0] ||
  338.              mhwra.data[1] != dev->MarginsHWResolution[1]
  339.            )
  340.           ecode = gs_note_error(gs_error_rangecheck);
  341.         else
  342.           break;
  343.     END_ARRAY_PARAM(mhwra, mhwre)
  344.  
  345.     switch ( code = param_read_bool(plist, (param_name = ".IgnoreNumCopies"), &ignc) )
  346.     {
  347.     default:
  348.         ecode = code;
  349.         param_signal_error(plist, param_name, ecode);
  350.     case 0:
  351.     case 1:
  352.         break;
  353.     }
  354.  
  355.     /* Ignore parameters that only have meaning for printers. */
  356. #define IGNORE_INT_PARAM(pname)\
  357.   { int igni;\
  358.     switch ( code = param_read_int(plist, (param_name = pname), &igni) )\
  359.       { default:\
  360.       ecode = code;\
  361.       param_signal_error(plist, param_name, ecode);\
  362.     case 0:\
  363.     case 1:\
  364.       break;\
  365.       }\
  366.   }
  367.     IGNORE_INT_PARAM("%MediaSource")
  368.     IGNORE_INT_PARAM("%MediaDestination")
  369.  
  370.     switch ( code = param_read_float_array(plist, (param_name = "ImagingBBox"), &ibba) )
  371.     {
  372.     case 0:
  373.         if ( ibba.size != 4 ||
  374.              ibba.data[2] < ibba.data[0] || ibba.data[3] < ibba.data[1]
  375.            )
  376.           ecode = gs_note_error(gs_error_rangecheck);
  377.         else
  378.           break;
  379.         goto ibbe;
  380.     default:
  381.         if ( (code = param_read_null(plist, param_name)) == 0 )
  382.         {    ibbnull = true;
  383.             ibba.data = 0;
  384.             break;
  385.         }
  386.         ecode = code;    /* can't be 1 */
  387. ibbe:        param_signal_error(plist, param_name, ecode);
  388.     case 1:
  389.         ibba.data = 0;
  390.         break;
  391.     }
  392.  
  393.     /* Now check nominally read-only parameters. */
  394.     if ( (code = param_check_string(plist, "OutputDevice", dev->dname, true)) < 0 )
  395.       ecode = code;
  396.     if ( (code = param_check_string(plist, "ProcessColorModel", pcmsa[colors], colors != 0)) < 0 )
  397.       ecode = code;
  398.     if ( (code = param_check_string(plist, "Name", dev->dname, true)) < 0 )
  399.       ecode = code;
  400.     if ( (code = param_check_int(plist, "Colors", colors, true)) < 0 )
  401.       ecode = code;
  402.     if ( (code = param_check_int(plist, "BitsPerPixel", depth, true)) < 0 )
  403.       ecode = code;
  404.     if ( (code = param_check_int(plist, "GrayValues", GrayValues, true)) < 0 )
  405.       ecode = code;
  406.     if ( (code = param_check_long(plist, "PageCount", dev->PageCount, true)) < 0 )
  407.       ecode = code;
  408.     if ( (code = param_check_int(plist, "RedValues", RGBValues, colors > 1)) < 0 )
  409.       ecode = code;
  410.     if ( (code = param_check_int(plist, "GreenValues", RGBValues, colors > 1)) < 0 )
  411.       ecode = code;
  412.     if ( (code = param_check_int(plist, "BlueValues", RGBValues, colors > 1)) < 0 )
  413.       ecode = code;
  414.     if ( (code = param_check_long(plist, "ColorValues", ColorValues, colors > 1)) < 0 )
  415.       ecode = code;
  416.     if ( param_read_string(plist, "HWColorMap", &cms) != 1 )
  417.       {    byte palette[3 << 8];
  418.         if ( param_HWColorMap(dev, palette) )
  419.           code = param_check_bytes(plist, "HWColorMap", palette,
  420.                        colors << depth, true);
  421.         else
  422.           code = param_check_bytes(plist, "HWColorMap", 0, 0, false);
  423.         if ( code < 0 )
  424.           ecode = code;
  425.       }
  426.     if ( (code =
  427.           param_check_int(plist, "TextAlphaBits",
  428.                   (*dev_proc(dev, get_alpha_bits))(dev, go_text),
  429.                   true)) < 0
  430.        )
  431.       ecode = code;
  432.     if ( (code =
  433.           param_check_int(plist, "GraphicsAlphaBits",
  434.                   (*dev_proc(dev, get_alpha_bits))(dev, go_graphics),
  435.                   true)) < 0
  436.        )
  437.       ecode = code;
  438.  
  439.     /* We must 'commit', in order to detect unknown parameters, */
  440.     /* even if there were errors. */
  441.     code = param_commit(plist);
  442.     if ( ecode < 0 )
  443.       return ecode;
  444.     if ( code < 0 )
  445.       return code;
  446.  
  447.     /* Now actually make the changes. */
  448.     /* Changing resolution or page size requires closing the device, */
  449.     /* but changing margins or ImagingBBox does not. */
  450.     /* In order not to close and reopen the device unnecessarily, */
  451.     /* we check for replacing the values with the same ones. */
  452.  
  453.     if ( hwra.data != 0 &&
  454.           (dev->HWResolution[0] != hwra.data[0] ||
  455.            dev->HWResolution[1] != hwra.data[1])
  456.        )
  457.       {    if ( dev->is_open )
  458.           gs_closedevice(dev);
  459.         gx_device_set_resolution(dev, hwra.data[0], hwra.data[1]);
  460.       }
  461.     if ( hwsa.data != 0 &&
  462.           (dev->width != hwsa.data[0] ||
  463.            dev->height != hwsa.data[1])
  464.        )
  465.       {    if ( dev->is_open )
  466.           gs_closedevice(dev);
  467.         gx_device_set_width_height(dev, hwsa.data[0], hwsa.data[1]);
  468.       }
  469.     if ( msa.data != 0 &&
  470.           (dev->MediaSize[0] != msa.data[0] ||
  471.            dev->MediaSize[1] != msa.data[1])
  472.        )
  473.       {    if ( dev->is_open )
  474.           gs_closedevice(dev);
  475.         gx_device_set_page_size(dev, msa.data[0], msa.data[1]);
  476.       }
  477.     if ( ma.data != 0 )
  478.       {    dev->Margins[0] = ma.data[0];
  479.         dev->Margins[1] = ma.data[1];
  480.       }
  481.     if ( hwma.data != 0 )
  482.       {    dev->HWMargins[0] = hwma.data[0];
  483.         dev->HWMargins[1] = hwma.data[1];
  484.         dev->HWMargins[2] = hwma.data[2];
  485.         dev->HWMargins[3] = hwma.data[3];
  486.       }
  487.     dev->IgnoreNumCopies = ignc;
  488.     if ( ibba.data != 0 )
  489.       {    dev->ImagingBBox[0] = ibba.data[0];
  490.         dev->ImagingBBox[1] = ibba.data[1];
  491.         dev->ImagingBBox[2] = ibba.data[2];
  492.         dev->ImagingBBox[3] = ibba.data[3];
  493.         dev->ImagingBBox_set = true;
  494.       }
  495.     else if ( ibbnull )
  496.       {    dev->ImagingBBox_set = false;
  497.       }
  498.     return 0;
  499. }
  500.  
  501. /* Read .MediaSize or, if supported as a synonym, PageSize. */
  502. private int
  503. param_MediaSize(gs_param_list *plist, gs_param_name pname,
  504.   const float *res, gs_param_float_array *pa)
  505. {    gs_param_name param_name;
  506.     int ecode = 0;
  507.     int code;
  508.  
  509.     BEGIN_ARRAY_PARAM(param_read_float_array, pname, *pa, 2, mse)
  510.         float width_new = pa->data[0] * res[0] / 72;
  511.         float height_new = pa->data[1] * res[1] / 72;
  512.         if ( width_new < 0 || height_new < 0 )
  513.           ecode = gs_note_error(gs_error_rangecheck);
  514. #define max_coord (max_fixed / fixed_1)
  515. #if max_coord < max_int
  516.         else if ( width_new > max_coord || height_new > max_coord )
  517.           ecode = gs_note_error(gs_error_limitcheck);
  518. #endif
  519. #undef max_coord
  520.         else
  521.           break;
  522.     END_ARRAY_PARAM(*pa, mse)
  523.     return ecode;
  524. }
  525.  
  526. #if 0        /****** not used ******/
  527. /* Check that a nominally read-only parameter is being set to */
  528. /* its existing value. */
  529. private int
  530. param_check_bool(gs_param_list *plist, gs_param_name pname, bool value,
  531.   bool defined)
  532. {    int code;
  533.     bool new_value;
  534.     switch ( code = param_read_bool(plist, pname, &new_value) )
  535.       {
  536.       case 0:
  537.         if ( defined && new_value == value )
  538.           break;
  539.         code = gs_note_error(gs_error_rangecheck);
  540.         goto e;
  541.       default:
  542.         if ( param_read_null(plist, pname) == 0 )
  543.           return 1;
  544. e:        param_signal_error(plist, pname, code);
  545.       case 1:
  546.         ;
  547.       }
  548.     return code;
  549. }
  550. #endif        /****** not used ******/
  551. private int
  552. param_check_long(gs_param_list *plist, gs_param_name pname, long value,
  553.   bool defined)
  554. {    int code;
  555.     long new_value;
  556.     switch ( code = param_read_long(plist, pname, &new_value) )
  557.       {
  558.       case 0:
  559.         if ( defined && new_value == value )
  560.           break;
  561.         code = gs_note_error(gs_error_rangecheck);
  562.         goto e;
  563.       default:
  564.         if ( param_read_null(plist, pname) == 0 )
  565.           return 1;
  566. e:        param_signal_error(plist, pname, code);
  567.       case 1:
  568.         ;
  569.       }
  570.     return code;
  571. }
  572. private int
  573. param_check_bytes(gs_param_list *plist, gs_param_name pname, const byte *str,
  574.   uint size, bool defined)
  575. {    int code;
  576.     gs_param_string new_value;
  577.     switch ( code = param_read_string(plist, pname, &new_value) )
  578.       {
  579.       case 0:
  580.         if ( defined && new_value.size == size &&
  581.              !memcmp((const char *)str, (const char *)new_value.data,
  582.                  size)
  583.            )
  584.           break;
  585.         code = gs_note_error(gs_error_rangecheck);
  586.         goto e;
  587.       default:
  588.         if ( param_read_null(plist, pname) == 0 )
  589.           return 1;
  590. e:        param_signal_error(plist, pname, code);
  591.       case 1:
  592.         ;
  593.       }
  594.     return code;
  595. }
  596.